home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Floppy Magazine 1987 #2
/
Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_B.d64
/
knight rider
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
3KB
|
67 lines
0 iff=0thenf=1:ifpeek(34872)<>162thenload"kitt",8,1
10 print"[147]":sys24516
20 clr:hid=50 :dim a(50),b(50)
30 w1=54276:w2=54283:w3=54290
40 t1=54277:t2=54284:t3=54291
50 s1=54278:s2=54285:s3=54292:u=98:v=96
60 a1=54273:a2=54272:b1=54280:b2=54279 :c1=54287:c2=54286:vo=54296
70 fori=a2tovo:pokei,0:next
80 for i=1 to 49:read a(i),b(i):next
90 poke vo,15
100 poke t1,136:poke t2,40:poke t3,136
110 poke s1,100:poke s2,68 :poke s3,100
120 poke w1,33:poke w2,33:poke w3,33
130 data 4,73,4,139,4,208,5,25,5,103,5,185,6,16,6,108,6,206,7,53,7,163,8,23
140 data 8,147,9,21,9,159,10,60,10,205,11,114,12,32,12,216,13,156,14,107,15,70
150 data 16,47,17,37,18,42,19,63,20,100,21,154,22,227,24,63,25,107,27,56,28,214
160 data 30,141,32,94,34,75,36,85,38,126,40,200,43,52,45,198,48,127,51,97,54,111
170 data 57,172,61,126,64,188,68,149
180 read x1,x2,x3:if x1=-1 then 20
190 if x1=-2 then 210
200 poke a1,a(x1):poke a2,b(x1)
210 if x2=-2 then 230
220 poke b1,a(x2):poke b2,b(x2)
230 if x3=-2 then 250
240 poke c1,a(x3):poke c2,b(x3)
250 fori=1to hid:next
260 pokeb1,0:pokeb2,0:pokec1,0:pokec2,0
261 ifker=0then ker=1:sys24416:goto180
265 ker=0:sys24448:goto180
280 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
290 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
300 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
310 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
320 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
330 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
340 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,0,-2,27,0,0,26,0,-2,26,0
350 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
360 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
370 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
380 data 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
390 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
400 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
410 data43,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
420 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
430 data 33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,-2,28,0,-2,28,0
440 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
450 data 45,28,9,-2,28,9,46,29,0,45,28,0,40,28,0,-2,29,0,-2,28,0,-2,28,0
460 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
470 data33,28,9,-2,28,9,34,29,0,33,28,0,40,28,9,-2,29,9,45,28,0,-2,28,0
480 data46,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
490 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
500 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
510 data-2,26,7,-2,26,7,-2,26,0,-2,26,0,-2,25,7,-2,26,7,-2,26,0,-2,26,0
520 data-2,26,7,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
530 data38,22,7,-2,22,7,40,25,9
540 data0,28,9,0,29,0,0,28,0,0,28,9,-2,29,9,-2,28,0,-2,28,0
550 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
560 data 0,28,9,-2,28,9,0,29,0,0,28,0,0,28,0,-2,29,0,-2,28,0,-2,28,0
570 data-2,29,9,-2,28,9,-2,28,0,-2,28,0,-2,27,0,-2,28,0,-2,28,0,-2,28,0
580 data0,26,7,-2,26,7,0,27,0,0,26,0,0,26,7,-2,27,7,0,26,0,-2,26,0
590 data0,27,7,-2,26,7,-2,26,0,-2,26,0,-2,25,0,-2,26,0,-2,26,0,-2,26,0
600 data21,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
610 data28,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
620 data33,28,9,-2,28,9,-2,29,0,-2,28,0,-2,28,9,-2,29,9,-2,28,0,-2,28,0
630 data-2,28,0,-2,28,0,40,28,16,-2,28,16,-2,28,4
640 data 0,0,0,-1,-1,-1